home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_cspace.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  6.8 KB  |  229 lines
  1. %    Copyright (C) 2002 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_cspace.ps 8962 2008-08-11 14:16:18Z ken $
  17. % basic colorspace mechanism
  18.  
  19. %
  20. % There have been some major changes to the PostScript colour handling.
  21. % In particular, the vast majority of the colour space code has been
  22. % converted from PostScript to C. This file has been extensively
  23. % modified, as has gs_icc.ps. The remaining PostScript files which 
  24. % previously implemented colour space handling; gs_ciecs2.ps, gs_ciecs3.ps
  25. % gs_devcs.ps, gs_devn.ps, gs_devpxl.ps, gs_indxd.ps, gs_patrn.ps and
  26. % gs_sepr.ps have been superceded by the C code and removed.
  27. %
  28. % gs_lev2.ps and gs_ll3.ps have also been modified so that they no longer
  29. % attempt to execute these PostScript files.
  30. %
  31. .currentglobal true .setglobal
  32. systemdict begin
  33.  
  34. %
  35. % gs_res.ps, and possibly other files, use this dictionary. Formerly
  36. % in cspace_util, moved to systemdict.
  37. %
  38. 20 dict dup /colorspacedict exch def
  39.  
  40. begin % colorspacedict
  41.  
  42. %
  43. % gs_res.ps uses these entries in colorspacedict
  44. % to populate the ColorSpaceFamily resource, so we need
  45. % to add the supported spaces.
  46. %
  47. /DeviceGray [] def
  48. /DeviceRGB [] def
  49. /DeviceCMYK [] def
  50. end % colorspacedict
  51.  
  52. %
  53. % Global, read-only, unpacked, array-form device color spaces
  54. % We need to return an array argument in response to currentcolorspace
  55. % even if the argument presented to setcolorspace was a simple device
  56. % space name. Not only that, but in order to satisfy some Adobe
  57. % applications, it must be the *same* array every time. The only way
  58. % to do that is to define an appropriate set initial arrays and always return 
  59. % one of those. These arrays are defined here.
  60. %
  61. /DeviceGray_array /DeviceGray 1 array astore readonly def
  62. /DeviceRGB_array  /DeviceRGB  1 array astore readonly def
  63. /DeviceCMYK_array /DeviceCMYK 1 array astore readonly def
  64.  
  65. %
  66. %   -   initgraphics   -
  67. %
  68. % The internal routine gs_initgraphics doesn't (re)set the color space,
  69. % so we must redefine the operation to do it here.
  70. %
  71. %
  72. /initgraphics
  73.   { initgraphics systemdict /DeviceGray_array get setcolorspace }
  74. .bind odef 
  75.  
  76.  
  77. %
  78. % These routines used for the NOSUBSTDEVICECOLORS switch. This prevents 
  79. % substitution of DeviceGray, DeviceRGB and DeviceCMYK with a Default*
  80. % colour space when /UseCIEColors is true. If the job includes a
  81. % definition of /DefaltGray, DefaultRGB or DefaultCMYK then it also executes
  82. % .includecolorspace to allow the device to record the substitute space.
  83. %
  84. /..page_default_spaces 3 dict def
  85.  
  86. %
  87. % Used internally to retrieve any relevant default colour space.
  88. %
  89. % <Default space name> ..nosubstdevicetest false
  90. %                                          <Default space name> [space] true
  91. %
  92. % If the boolean is true then the C code must set the additional colour space
  93. % and execute .includecolorspace before finally setting a DeviceGray space.
  94. %
  95. /..nosubstdevicetest
  96. {
  97.   false mark 3 -1 roll
  98.   % If we have already recorded this space, don't repeat it.
  99.   systemdict /..page_default_spaces get 1 index known {
  100.     cleartomark
  101.   } {
  102.     {
  103.       % Check to see if this space was defined by defineresource, if so then 
  104.       % the job defined it, otherwise its the usual default, so ignore it. 
  105.       dup /ColorSpace resourcestatus {
  106.         pop 0 eq {
  107.           % Default* defined by defineresource
  108.           systemdict /..page_default_spaces get 1 index //true put
  109.           dup /ColorSpace findresource 4 2 roll pop pop true 
  110.         }{
  111.           cleartomark
  112.         } ifelse
  113.       }{
  114.         cleartomark
  115.       } ifelse
  116.     } stopped
  117.     {cleartomark}if
  118.   } ifelse
  119. }bind def
  120.  
  121. %
  122. % <color_space_name> ..includecolorspace -
  123. %
  124. /..includecolorspace
  125. { 
  126.   % If we have already recorded this space, don't repeat it.
  127.   systemdict /..page_default_spaces get 1 index known {
  128.     pop
  129.   } {
  130.     mark exch
  131.     {
  132.     % Check to see if this space was defined by defineresource, if so then 
  133.     % the job defined it, otherwise its the usual default, so ignore it. 
  134.     dup /ColorSpace resourcestatus {
  135.         pop 0 eq {
  136.           % Job defined /Default*, so record it and allow the device access to it
  137.           systemdict /..page_default_spaces get 1 index //true put
  138.           gsave
  139.           { dup /ColorSpace findresource //setcolorspace exec .includecolorspace
  140.           } stopped pop
  141.           grestore
  142.         } if
  143.       } if
  144.     } stopped pop
  145.     cleartomark
  146.   } ifelse
  147. } bind def
  148.  
  149. %
  150. % <color_space> <color_space_name> cs_substitute_generic <color_space1> <color_space2>
  151. %
  152. /cs_substitute_generic
  153. { .getuseciecolor
  154.     {NOSUBSTDEVICECOLORS 
  155.         { //..includecolorspace exec dup }
  156.         { /ColorSpace findresource }
  157.       ifelse
  158.     }
  159.     { pop dup }
  160.   ifelse
  161. }
  162. bind def
  163.  
  164. %
  165. % <color_space> <color_space_name> cs_substitute_DeviceRGB_for_PDFX_or_PDFA <color_space1> <color_space2>
  166. %
  167. /cs_substitute_DeviceRGB_for_PDFX_or_PDFA
  168. { systemdict /PDFX .knownget not { false } if
  169.   systemdict /PDFA .knownget not { false } if
  170.   or {
  171.     dup /ColorSpace resourcestatus {
  172.       pop pop
  173.     } {
  174.       (Error: Need a /DefaultRGB /ColorSpace resource for generating a PDF/X or PDF/A document.) =
  175.       /cs_substitute_DeviceRGB_for_PDFX_or_PDFA cvx /undefined signalerror
  176.     } ifelse
  177.     /ColorSpace findresource
  178.   } {
  179.     //cs_substitute_generic exec
  180.   } ifelse   
  181. } bind def
  182. end 
  183.  
  184. %
  185. % used to convert the DataSource of an ICCBased colour space into a 
  186. % file, if it isn't one already. This is required because the current
  187. % implementation of ICC spaces requires the data source to be a file.
  188. % This routine is *only* called from the PostScript interpreter when
  189. % setting an ICCBased space with a string data source.
  190. %
  191. /.convertICCSource 
  192. {
  193.   % make DataSource a file
  194.   dup 1 get /DataSource get type /stringtype eq
  195.   {
  196.     % build all new structures in local VM
  197.     .currentglobal exch //false .setglobal
  198.  
  199.     % check if we need to copy the color space and dictionary
  200.     2 copy eq
  201.     {
  202.       dup length array copy
  203.       dup 1 2 copy get dup length dict copy put
  204.     }
  205.     if
  206.  
  207.     % fetch DataSource, setting up stack for multiple puts
  208.     dup 1 2 copy get dup /DataSource 2 copy get
  209.  
  210.     % convert the string into a file
  211.     /ReusableStreamDecode filter
  212.  
  213.     % put the file into the dictioary, the dictionary into the array
  214.     put put
  215.  
  216.     % restore the VM mode
  217.     exch .setglobal
  218.   }
  219.   if
  220. } bind def
  221.  
  222. %
  223. % Set the initial device space
  224. %
  225. systemdict /DeviceGray_array get setcolorspace
  226.  
  227.  
  228. .setglobal
  229.